subroutine init_box_param
  use box_param
  implicit none

  integer :: i

  do i=1,3
     bwidth(i)=-1
     channel_n(i)=1
     bound(i)=1
  end do

  cell_width=-1

  return

end subroutine init_box_param
